home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / telecomm / bbsxdemo.lzh / OE / ORDUTIL.SCR < prev   
Text File  |  1993-01-03  |  4KB  |  204 lines
  1. script
  2. abort off
  3. STATUS_BOX (OFF)
  4.  
  5. ;       Script to allow printing and deleting of the Order Entry
  6. ;       system's INFO and ORDER datasets.
  7. ;               o Written 20-Oct-87 by Keith Ledbetter
  8. ;               o Requires version 1.30 of the BBS
  9. ;       --------------------------------------------------------
  10.  
  11. ; Modified 3 Jan 93, R. Sanchez, C&R Systems. (r.s.)
  12.  
  13. string  order_file = 'd:\bbsxdemo\oe\dat\orders.dat'   ;where the datasets are
  14. string  info_file  = 'd:\bbsxdemo\oe\dat\info.dat'
  15. string  option
  16. integer rc
  17. integer video_width = '&11'
  18. string  padding
  19. string  orders_printed = 'N'
  20. string  info_printed   = 'N'
  21.  
  22. Ordering_Utilities:
  23.  
  24.    clear screen
  25.    printe
  26.   printe '--------------------------------------' center
  27.   printe ' DEMO VERSION! MAY NOT BE UP TO DATE! ' center
  28.   printe '--------------------------------------' center
  29.    printe
  30.    printe '\i Order Entry Utilities \o' center
  31.    printe '\i      ** Status **     \o' center
  32.  
  33.    padding = ''
  34.    if video_width = 80 then
  35.       expand (padding, 30)
  36.    else
  37.       expand (padding, 10)
  38.    endif
  39.  
  40.    print  '[padding]Orders: '
  41.    if file_exists (order_file) then
  42.       printe 'PRESENT'
  43.    else
  44.       printe 'None present'
  45.    endif
  46.  
  47.    print  '[padding]  Info: '
  48.    if file_exists (info_file) then
  49.       printe 'PRESENT'
  50.    else
  51.       printe 'None present'
  52.    endif
  53.  
  54.    printe '\i      ** Options **    \o' center
  55.    printe
  56.    printe '1.  Show   Order File' center
  57.    printe '2.  Print  Order File' center
  58.    printe '3.  Delete Order File' center
  59.    printe
  60.    printe '4.  Show   Info File ' center
  61.    printe '5.  Print  Info File ' center
  62.    printe '6.  Delete Info File ' center
  63.    printe
  64.    printe 'X.  Exit             ' center
  65.    printe
  66.    print 'Selection: ' center
  67.    input option 1 noreturn
  68.    if option = 'x' then
  69.       STATUS_BOX (ON)
  70.       exit
  71.    ef option = '1' then
  72.       gosub show_orders
  73.    ef option = '2' then
  74.       gosub print_orders
  75.    ef option = '3' then
  76.       gosub delete_orders
  77.    ef option = '4' then
  78.       gosub show_info
  79.    ef option = '5' then
  80.       gosub print_info
  81.    ef option = '6' then
  82.       gosub delete_info
  83.    endif
  84.    goto Ordering_Utilities
  85.  
  86. print_orders:
  87.  
  88.    printe
  89.    print 'Ready printer, press <return>..' center
  90.    input option 1
  91.    rc = file_print (order_file)
  92.    if RC > 0 then
  93.       printe
  94.       BELL
  95.       printe 'Unable to print dataset!!' center
  96.       goto get_a_return
  97.    endif
  98.    orders_printed = 'Y'
  99.    return
  100.  
  101. show_orders:
  102.  
  103.    if file_exists (order_file) then
  104.       view ('[order_file]', showall pagebrk)
  105.       printe 'End Of File' center
  106.    else
  107.       printe 'None present' CENTER
  108.    endif
  109.    printe 'Press <return>..' center
  110.    input option 1
  111.    return
  112.  
  113. delete_orders:
  114.  
  115.    if orders_printed = 'y' then
  116.       goto DO_1
  117.    endif
  118.  
  119.    printe
  120.    printe 'You haven\"t printed orders yet!' center
  121.    printe
  122.    print  'Delete anyway (y/n)? ' center
  123.    input option 1 noreturn
  124.    if option = 'n' then
  125.       return
  126.    endif
  127.  
  128. DO_1:
  129.    rc = file_delete (order_file)
  130.    printe
  131.    if RC > 0 then
  132.       BELL
  133.       printe 'Unable to delete dataset!!' center
  134.    else
  135.       printe 'Order dataset deleted!' center
  136.    endif
  137.    goto get_a_return
  138.    return
  139.  
  140.  
  141. show_info:
  142.  
  143.    if file_exists (info_file) then
  144.       view ('[info_file]', showall pagebrk)
  145.       printe 'End Of File' center
  146.    else
  147.       printe 'None present' CENTER
  148.    endif
  149.    printe 'Press <return>..' center
  150.    input option 1
  151.    return
  152.  
  153. print_info:
  154.  
  155.    printe
  156.    print 'Ready printer, press <return>..' center
  157.    input option 1
  158.    rc = file_print (info_file)
  159.    if RC > 0 then
  160.       printe
  161.       BELL
  162.       printe 'Unable to print dataset!!' center
  163.       goto get_a_return
  164.    endif
  165.    info_printed = 'Y'
  166.    return
  167.  
  168. delete_info:
  169.  
  170.    if info_printed = 'y' then
  171.       goto DI_1
  172.    endif
  173.  
  174.    printe
  175.    printe 'You haven\"t printed that file yet!' center
  176.    printe
  177.    print  'Delete anyway (y/n)? ' center
  178.    input option 1 noreturn
  179.    if option = 'n' then
  180.       return
  181.    endif
  182.  
  183. DI_1:
  184.    rc = file_delete (info_file)
  185.    printe
  186.    if RC > 0 then
  187.       BELL
  188.       printe 'Unable to delete dataset!!' center
  189.    else
  190.       printe 'Info dataset deleted!' center
  191.    endif
  192.    goto get_a_return
  193.    return
  194.  
  195.  
  196. get_a_return:
  197.      
  198.    printe
  199.    print 'Press <return> to continue..' center
  200.    input option 1
  201. return
  202.  
  203.         
  204.